set the text of member pDestMember to PDF_GetText(sprite pSprite)
if PDF_status(sprite pSprite) then alert "PDF Behavior Error"&RETURN&PDF_error(sprite pSprite)
end doGetText
on mouseUp me
if (pEvent = #mouseUp) then doGetText(me)
end mouseUp
on mouseDown me
if (pEvent = #mouseDown) then doGetText(me)
end mouseDown
-- standard behavior stuff --
on getPropertyDescriptionList me
set defaultValues = GetDefaultValues (me)
set pdfSpriteList = getProp (defaultValues, #spriteList)
set defSprite = getProp (defaultValues, #defaultSprite)
if (defSprite=0) then
if the ticks - pAlertFlag > 10 then
alert "Please create a sprite of type PDF first."
end if
set pAlertFlag = the ticks -- The ticks when the user clicked "OK"
exit
end if
set defFieldMember = FindFirstMember(#field)
if (string(defFieldMember) contains "member 0") then
alert "You need at least one member of type #field to use this behavior."
exit
end if
set p_list = [#pEvent: [ #comment: "Event", #format:#symbol, #range:[#mouseUp, #mouseDown], #default:#mouseUp], #pSprite: [ #comment: "PDF Sprite is in channel:", #format:#symbol, #range:pdfSpriteList, #default:defSprite], #pDestMember: [ #comment: "Put result in:", #format: #field, #default:defFieldMember]]
return p_list
end
on getBehaviorDescription
return "Extract the text of the current page of the PDF document to the designated Director field. The retrieved words order depend on the structure of the PDF document" &RETURN& "Free to use and abuse. (c)1999, Integration New Media, Inc." &RETURN& "Thanks to James Newton for his suggestions"